home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / system / mail / mailhand / metamail.z / metamail / bin / audiosend < prev    next >
Encoding:
Text File  |  1992-03-10  |  2.5 KB  |  100 lines
  1. #!/bin/csh -f
  2. # Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  3. # 
  4. # Permission to use, copy, modify, and distribute this material 
  5. # for any purpose and without fee is hereby granted, provided 
  6. # that the above copyright notice and this permission notice 
  7. # appear in all copies, and that the name of Bellcore not be 
  8. # used in advertising or publicity pertaining to this 
  9. # material without the specific, prior written permission 
  10. # of an authorized representative of Bellcore.  BELLCORE 
  11. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  12. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  13. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  14. #
  15.  
  16. # This is to make metamail/showaudio do playback on the speaker, not the phone.
  17. setenv AUDIOSPEAKERFORCE 1 
  18.  
  19. if (-d /usr/sony) then
  20.     set dev=/dev/sb0
  21. else
  22.     set dev=/dev/audio
  23. endif
  24.  
  25. echo -n "To: "
  26. set to = $<
  27. echo -n "Subject: "
  28. set subject = $<
  29. echo -n "CC: "
  30. set cc = $<
  31.  
  32. record:
  33. echo -n "Press RETURN when you are ready to start recording: "
  34. set foo = $<
  35.  
  36. set fname = /tmp/audio-out.$$
  37. set fnameraw = /tmp/audio-raw.$$
  38.  
  39. echo "To: " "$to" > $fname
  40. echo "Subject: " "$subject" >> $fname
  41. echo "CC: " "$cc" >> $fname
  42. echo "MIME-Version: 1.0" >> $fname
  43. echo "Content-Type: audio/basic" >> $fname
  44. echo "Content-Transfer-Encoding: base64" >> $fname
  45. echo  "" >> $fname
  46. # THIS IS UNBELIEVABLY GRUBBY
  47. onintr cleanup
  48. if (! $?RECORD_AUDIO) then
  49.     (/bin/cat < $dev > $fnameraw) &
  50. else
  51.     ($RECORD_AUDIO > $fnameraw) &
  52. endif
  53. jobs -l > /tmp/AUDCAT.$$
  54. set foo=`/bin/cat /tmp/AUDCAT.$$`
  55. /bin/rm /tmp/AUDCAT.$$
  56. set PID=$foo[2]
  57. echo -n "press RETURN when you are done recording: "
  58. set foo=$<
  59. echo One moment please...
  60. /bin/sleep 1
  61. echo -n Killing recording job...
  62. /bin/kill -9 $PID >& /dev/null
  63. /usr/local/bin/mmencode -b < $fnameraw >> $fname
  64. /bin/rm $fnameraw
  65. echo "" >> $fname
  66.  
  67. whatnext:
  68. echo ""
  69. echo "What do you want to do?"
  70. echo ""
  71. echo "1 -- Send mail"
  72. echo "2 -- Listen to recorded message"
  73. echo "3 -- Replace with a new recording"
  74. echo "4 -- Quit"
  75. set which = $<
  76.     switch ($which)
  77.         case 1:
  78.           echo -n "Sending mail, please wait...  "
  79.           /usr/lib/sendmail $to  $cc < $fname
  80.           if (! $status) then
  81.             echo "Done."
  82.             rm $fname
  83.             exit
  84.           else
  85.             echo Mail delivery failed, draft mail is in $fname
  86.           endif
  87.           breaksw
  88.         case 2:
  89.           metamail -d $fname
  90.           breaksw
  91.         case 3:
  92.           goto record
  93.         case 4:
  94.           exit
  95.     endsw
  96. goto whatnext
  97. exit 0
  98. cleanup:
  99. kill -9 $PID >& /dev/null
  100.